home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / BUSH.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  992 b   |  46 lines
  1. ;bush.pog - recursively draw a fractal looking bush using Pogo turtle
  2. ;graphics.  Save it as BUSH.PC1 when done.
  3.  
  4. ;This is the tricky recursive part...
  5. to branches(len, color, dir)
  6. {
  7. if (len < 1)    ; if length too short bail out
  8.     return;
  9. PenColor(color)    
  10. Forward(len)
  11. Left(dir)
  12. branches(60*len/100, color+1, dir)    ;call self for next (smaller) branch to left
  13. Right(dir)
  14. branches(30*len/100, color+1, dir)    ;and tiny branch in middle
  15. Right(dir)
  16. branches(60*len/100, color+1, dir)    ;and branch to right
  17.  
  18. ;now lift up the pen and move turtle back to where it was when this
  19. ;branch started.
  20. PenUp()
  21. Left(dir)
  22. Reverse(len)
  23. PenDown()
  24. }
  25.  
  26. ;generate a nice blue to bright blue-green spectrum of colors.
  27. function make_colors()
  28. {
  29. int i
  30.  
  31. for i = 1 to 10
  32.     setcolor(i, i, 25*i, 250)
  33. }
  34.  
  35.  
  36. ToGraphics()
  37. make_colors()
  38. PenUp()            ;start Turtle below screen so can see crown of bush
  39. Reverse(200)
  40. PenDown()
  41. ClearScreen()
  42. branches(120, 1, 39)
  43. SavePic("BUSH.PC1");
  44. WaitKey()
  45.  
  46.